home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The Original Shareware 1.1
/
The Original Shareware (WeMake CDs)(Volume 1.1)(CDs, Inc)(1993).iso
/
32
/
megatrek.zip
/
IDLE.ASC
< prev
next >
Wrap
Text File
|
1982-07-03
|
512b
|
16 lines
50000 J3=0:INPUT"HOW MANY STARDATES";Z5:IF(Z5<R5)AND(K3=0)THEN 50020
50010 INPUT"ARE YOU SURE";B$:IF LEFT$(B$,1)<>"Y"THEN GOTO 50200
50020 R6=1
50030 IF Z5<=0 THEN R6=0
50040 IF R6=0 THEN GOTO 50200
50050 T1=Z5:Z6=Z5
50060 IF K3=0 THEN 50090
50070 T1=1+RND(1):IF Z5<T1 THEN T1=Z5
50080 Z6=T1
50090 IF T1<Z5 THEN GOSUB 1000
50100 IF A2<>0 THEN GOTO 50200
50110 GOSUB 9000:J3=1:IF A2<>0 THEN GOTO 50200
50120 Z5=Z5-Z6:GOTO 50030
50200 IF J3=0 THEN GOTO 70 ELSE GOTO 331
60000 REM end overlay
000:J3